home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / Final Writer Tools / Arexx Macros / insert_text_clip.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-09-27  |  693 b   |  25 lines
  1. /* Inset Text                                          */
  2. /* This macro gets a filename, reads the file into the */
  3. /* clipboard, then inserts it into FC/FW               */
  4. /* requires rexxreqtools.lib, rexxutil.lib and         */
  5. /* rexxsupport.lib                                     */
  6. /* Mike Fitzgerald (mrfitz@groupz.net) 25 Sep 95       */
  7.  
  8. options results
  9. call addlib('rexxutil.library',0,-30)
  10. call addlib('rexxsupport.library',0,-30)
  11. call addlib('rexxreqtools.library',5,-30)
  12. result = rtfilerequest(,,,'_Insert')
  13. plip=result
  14. if plip="" then exit
  15. call open(clip,plip,'r')
  16. a=1
  17. do until eof(clip)
  18. tip.a=readln(clip)
  19. a=a+1
  20. end
  21. call close(clip)
  22. tip.0=a
  23. call writeclip(tip.,STEM,,0)
  24. paste
  25.